home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 53 / PC Actual CD 53.iso / intro.dxr / scripts_3_AbrirPanel.ls < prev    next >
Encoding:
Text File  |  2001-01-15  |  3.4 KB  |  143 lines
  1. property acciones, m, sp, AltoLinea, nivel, ultimaLinea, padre
  2. global spLinea, spListaProgramas, gEsMusica, gEsWeb
  3.  
  4. on getPropertyDescriptionList me
  5.   lista = [:]
  6.   addProp(lista, #nivel, [#format: #integer, #default: 0, #comment: "Nivel del panel"])
  7.   return lista
  8. end
  9.  
  10. on mouseUp me
  11.   numLinea = PointToLine(sprite(sp), the mouseLoc)
  12.   rectLinea = rect(sprite(sp).left, sprite(sp).top + ((numLinea - 1) * AltoLinea), sprite(sp).right, sprite(sp).top + (numLinea * AltoLinea))
  13.   gEsMusica = 0
  14.   case acciones[numLinea] of
  15.     1:
  16.       panel(me, numLinea, rectLinea)
  17.     2:
  18.       programas(me, numLinea)
  19.     3:
  20.       datosPrograma(me, numLinea, 1)
  21.     4:
  22.       datosPrograma(me, numLinea, 0)
  23.     5:
  24.       musica(me, numLinea)
  25.     6:
  26.       tipoWeb(me, numLinea, 1)
  27.   end case
  28.   rMask = sprite(sp - 1).rect
  29.   rMask.top = sprite(sp).top + 5
  30.   rMask.bottom = rectLinea.top + 5
  31.   sprite(sp + 1).rect = rMask
  32.   rMask.bottom = sprite(sp).bottom + 5
  33.   rMask.top = rectLinea.bottom + 5
  34.   sprite(sp + 2).rect = rMask
  35. end
  36.  
  37. on tipoWeb me, num, foto
  38.   datosPrograma(me, num, foto)
  39.   gEsWeb = 1
  40. end
  41.  
  42. on musica me, num
  43.   programas(me, num)
  44.   gEsMusica = 1
  45.   actualizarDatos(1)
  46.   mostrarPrograma(1)
  47. end
  48.  
  49. on datosPrograma me, num, conFoto
  50.   gEsWeb = 0
  51.   ocultarPanel(nivel)
  52.   updateStage()
  53.   mtexto = padre & "." & num
  54.   numProgramas = initListado(member(mtexto, "paneles").text)
  55.   actualizarDatos(1)
  56.   mostrarPrograma(conFoto)
  57. end
  58.  
  59. on programas me, num
  60.   ocultarPanel(nivel)
  61.   updateStage()
  62.   member("programas").FixedLinespace = 18
  63.   mtexto = padre & "." & num
  64.   numProgramas = initListado(member(mtexto, "paneles").text)
  65.   member("programas").FixedLinespace = 18
  66.   mostrarListaProgramas()
  67. end
  68.  
  69. on panel me, num, rectLinea
  70.   ocultarListaProgramas()
  71.   AltoLinea = m.FixedLinespace
  72.   mPanel = "n" & string(nivel + 1)
  73.   member(mPanel).FixedLinespace = 22
  74.   ocultarPanel(nivel)
  75.   updateStage()
  76.   mtexto = padre & "." & num
  77.   sendSprite((nivel * 10) + 36, #setPadre, mtexto)
  78.   member(mPanel).text = member(mtexto, "paneles").text
  79.   member(mPanel).FixedLinespace = 22
  80.   r = member(mPanel).rect
  81.   r = offset(r, rectLinea.right - 20, rectLinea.top)
  82.   r.bottom = r.bottom + 15
  83.   if r.bottom > 230 then
  84.     r = offset(r, 0, 230 - r.bottom)
  85.   end if
  86.   dibujarLineas(r)
  87.   listaAcciones = []
  88.   repeat with i = 1 to member(mPanel).line.count
  89.     append(listaAcciones, member(mPanel).line[i].char[1])
  90.     member(mPanel).line[i].char[1] = " "
  91.     member(mPanel).line[i] = numToChar(172) & member(mPanel).line[i]
  92.   end repeat
  93.   dibujarPanel((nivel * 10) + 30, r)
  94.   sendSprite((nivel * 10) + 36, #setAcciones, listaAcciones)
  95. end
  96.  
  97. on beginSprite me
  98.   mPanel = "n0"
  99.   member(mPanel).FixedLinespace = 30
  100.   mtexto = "0"
  101.   member(mPanel).text = member(mtexto, "paneles").text
  102.   acciones = []
  103.   repeat with i = 1 to member(mPanel).line.count
  104.     append(acciones, member(mPanel).line[i].char[1])
  105.     member(mPanel).line[i].char[1] = " "
  106.     member(mPanel).line[i] = numToChar(172) & member(mPanel).line[i]
  107.   end repeat
  108.   padre = "0"
  109.   sp = me.spriteNum
  110.   m = sprite(sp).member
  111.   ultimaLinea = -1
  112. end
  113.  
  114. on mouseEnter me
  115.   sp = me.spriteNum
  116.   m = sprite(sp).member
  117.   AltoLinea = m.FixedLinespace
  118.   ultimaLinea = PointToLine(sprite(sp), the mouseLoc)
  119. end
  120.  
  121. on getNivel me
  122.   return nivel
  123. end
  124.  
  125. on setAcciones me, lista
  126.   acciones = []
  127.   acciones = duplicate(lista)
  128.   return me
  129. end
  130.  
  131. on getAcciones me
  132.   return acciones
  133. end
  134.  
  135. on setPadre me, num
  136.   padre = num
  137.   return me
  138. end
  139.  
  140. on getPadre me
  141.   return padre
  142. end
  143.